<%
'******************************************************************************************
'#          Openasp CMS software opensource                                               #
'******************************************************************************************
'#      Copyright (C) Luca Becchetti, Broken Ice Interactive                              #
'#                                                                                        #
'# Questo software è gratuito, è possibile ridistribuire e modificare il prodotto         #
'# rispettando i termini della GNU General Public License pubblicata dalla Free           #
'# Software Foundation, si fa riferimento alla versione attuale e a tutte le versioni.    #
'# future                                                                                 #
'#                                                                                        #
'# Il software viene distribuito con lo scopo di essere utile e di aiutare nella          #
'# realizzazione di un sito web, non ci assiumiamo nessuna responsabilità per             #
'# eventuali malfunzionamenti o problemi provenienti dal programma.                       #
'#                                                                                        #
'# E' assolutamente vietato eliminare ogni riferimento di copyright sia all'interno del   #
'# del codice sorgente sia quelli visivi nel progetto.                                    #
'#                                                                                        #
'# Una copia della licenza GNU GPL è rilasciata nel pacchetto di istallazione del         #
'# software.                                                                              #
'#                                                                                        #
'# Per supporto visita il nostro sito ufficiale                                           #
'# http://www.openasp.it                                                                  #
'#                                                                                        #
'#                                                                                        #
'******************************************************************************************
i = split(request.ServerVariables("HTTP_URL"), "/")
if strComp("modifica.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
'----
'FUNZIONE    : getRsUser
'DESCRIZIONE : recupera tutte le info di un user in un recordset
'USO         : utilizzata nel profilo
'ARGOMENTI   : id/nome - ID/nome dell'utente che si intende recuperare
'----

function getRsUser(identifier)
    if identifier <> "" then
    	if isnumeric(identifier) then
        	strSQL = "SELECT * FROM TB_USERS WHERE Uid = " & testSQLinj(identifier)
        else
			strSQL = "SELECT * FROM TB_USERS WHERE Uname = '" & testSQLinj(identifier) & "'"
        end if
        set getRsUser = objConn.Execute(strSql)
    end if
end function

function scegliImmagine(urlFotoID)
    dim strFoto
    scegliImmagine = "themes/SHARE/IMG_34.jpg"
    if not isnull(urlFotoID) and urlFotoID <> "" then
        strFoto = replace(urlFotoID, "Http://", "")
        if strFoto <> "" then
            scegliImmagine = urlFotoID
        end if
    end if
end function

  dim objUtente
  Visitatore = True
  if Session("uID") <> "" and Session("uID") <> 0 then
    if Request.QueryString("Nick") = Username(Session("uID")) or Request.QueryString("Nick") = "" then
    	Visitatore = False
        set objUtente = getRsUser(Session("uID"))
    else
    	set objUtente = getRsUser(Request.QueryString("nick"))
    end if
  else
  	if Request.QueryString("Nick") = "" then
    	response.redirect "default.asp"
    else
    	set objUtente = getRsUser(Request.QueryString("nick"))
    end if
  end if
  if objUtente.EOF and objUtente.BOF then
	response.Redirect "default.asp"
  end if
   %>
   
   <div id="profilo">
   
	   <div id="utente">
			<h3>
			<%if IfIsOnline(objUtente("uName")) then %>
			   <img src="themes/SHARE/IMG_04.gif" title="<%=UserName(objUtente("Uid"))%>  online!" alt="<%=UserName(objUtente("Uid"))%>  online!" />
			<%else%>
			   <img src="themes/SHARE/IMG_03.gif" title="<%=UserName(objUtente("Uid"))%>  online!" alt="<%=UserName(objUtente("Uid"))%>  offline!" />
			<%end if%>
			<%= objUtente("Uname") %>
			</h3>
	   </div>	
	   <br />
	   <div id="foto">
			<h3><%=traduci("ling_mod_profilo_29")%></h3>
			<%if (objUtente("foto") = "http://") then%>
				<img class="foto" src="themes/SHARE/IMG_34.jpg" alt="<%= objUtente("Uname") %>" />
			<%else%>
				<img class="foto" alt="<%= objUtente("Uname") %>" src="<%=ScegliImmagine(objUtente("foto"))%>" />
			<%end if%>
		</div>		
	    <div id="avatar">
			<%
			  response.Write "<h3>" & traduci("ling_mod_profilo_24") & "</h3>"
			  if findAv(objUtente("Uid")) <> false then
			%>
			  <img class="foto" alt="avatar" src="<%=findAv(objUtente("Uid"))%>" />
			<%end if%>
	    </div>
		
		
		
    
	    <div id="dati">
			<br />
			<strong><%=traduci("ling_mod_profilo_02")%>: </strong>
			<%= chkDate(objUtente("Dataregistrazione"), "", false) %><br />
	     
			<% if not isnull(objUtente("LastLoggedIn")) and objUtente("LastLoggedIn") <> "" then %>
	        <strong><%=traduci("ling_mod_profilo_03")%>: </strong>
			<%= chkDate(objUtente("LastLoggedIn"), " : ", true)%>
			<% else %>
		    <strong><%=traduci("ling_mod_profilo_03")%>: </strong>
			<% end if %><br />
		
	        <% if not isnull(objUtente("anni")) and objUtente("anni") <> "" then %>
	        <strong><%=traduci("ling_mod_profilo_04")%>: </strong>
			<%= objUtente("anni") %>
	        <% else %>
	        <strong><%=traduci("ling_mod_profilo_04")%>: </strong>
			<%=traduci("ling_mod_profilo_05")%>
	        <% end if %><br />
			  
	        <% if not isnull(objUtente("Provincia")) and objUtente("Provincia") <> "" then %>
	        <strong><%=traduci("ling_reg_10")%>: </strong>
			<%= objUtente("Provincia") %>
	        <% else %>
	        <strong><%=traduci("ling_reg_10")%>: </strong>
	        <%=traduci("ling_mod_profilo_05")%>
	        <% end if %> <br />
			  
	        <% if not isnull(objUtente("Regione")) and objUtente("Regione") <> "" then %>
	        <strong><%=traduci("ling_reg_09")%>: </strong>
	        <%= objUtente("Regione") %>
	        <% else %>
	        <strong><%=traduci("ling_reg_09")%>: </strong>
	        <%=traduci("ling_mod_profilo_05")%>
	        <% end if%><br />
			  
			<% if not isnull(objUtente("occhi")) and objUtente("occhi") <> "" then %>
	        <strong><%=traduci("ling_reg_15")%>: </strong>
	        <%= objUtente("occhi") %>
	        <% else %>
	        <strong><%=traduci("ling_reg_15")%>: </strong>
	        <%=traduci("ling_mod_profilo_05")%>
	        <% end if%><br />          
	    </div>

		<div id="myweb">
			<br />
			<h3><%=traduci("ling_mod_profilo_28")%>:</h3>
	        <% if objUtente("website") <> "" and not isnull(objUtente("website")) then %>
	        	<img src="themes/MODULI_IMG/MODULO_PROFILO/home.png" alt="website" /> <a href="<%=objUtente("website") %>" ><%=objUtente("website") %></a>
	        <%end if%>			
	   </div>
		
		<br />
				
		<div id="contatti"> 
		
		<h3><%=traduci("ling_mod_profilo_27")%>:</h3>
			<% if mailvisib(objUtente("uID")) and objUtente("Email") <> "" and not isnull(objUtente("Email")) then %>
				<img src="themes/MODULI_IMG/MODULO_PROFILO/mail.png" alt="mail" /> <a href="mailto:<%=objUtente("Email")%>" name="mail"><%=replace(objUtente("Email"),"@", " [ @ ] ")%></a><br />
	        <%end if%>
	        
			<% if objUtente("ICQ") <> "" and not isnull(objUtente("ICQ")) then %>
	        <img src="themes/MODULI_IMG/MODULO_PROFILO/icq.png" alt="ICQ"  /> <a href="<%=objUtente("ICQ") %>" ><%=objUtente("ICQ") %></a><br />
	        <% end if
		
	        if objUtente("MSN") <> "" and not isnull(objUtente("MSN")) then %>
	        <img src="themes/MODULI_IMG/MODULO_PROFILO/msn.png" alt="MSN" /><a href="<%=objUtente("MSN") %>" ><%=replace(objUtente("MSN"),"@", " [ @ ] ")%></a><br />
	        <% end if
			
	        if objUtente("Yahoo") <> "" and not isnull(objUtente("Yahoo")) then %>
	    	<img src="themes/MODULI_IMG/MODULO_PROFILO/yahoo.png" alt="Yahoo" /><a href="<%=objUtente("YAHOO") %>" ><%=objUtente("YAHOO") %></a><br />
	        <% end if
			
	        if objUtente("AOL") <> "" and not isnull(objUtente("AOL")) then %>
	    	<img src="themes/MODULI_IMG/MODULO_PROFILO/aim.png" alt="AOL" /><a href="<%=objUtente("AOL") %>" ><%=objUtente("AOL") %></a><br />
	        <% end if
			
			if objUtente("SKYPE") <> "" and not isnull(objUtente("SKYPE")) then %>
	    	<img src="themes/MODULI_IMG/MODULO_PROFILO/skype.png" alt="Skype" /><a href="<%=objUtente("SKYPE") %>" ><%=objUtente("SKYPE") %></a><br />
			<% end if %>
		</div>
		
		<div id="altdati">
	        <h3><%=traduci("ling_mod_profilo_08")%>:</h3>
	        <% if not isnull(objUtente("MiaDesc")) and objUtente("MiaDesc") <> "" then %>
	        <%= objUtente("MiaDesc") %><br /><br />
	        <% else %>
	        <%=traduci("ling_mod_profilo_05")%> <br /><br />
	        <% end if %>		
	        <h3><%=traduci("ling_mod_profilo_09")%>:</h3>
	        <% if not isnull(objUtente("AltriDesc")) and objUtente("AltriDesc") <> "" then %>
	        <%= objUtente("AltriDesc") %><br /><br />
	        <% else %>
	        <%=traduci("ling_mod_profilo_05")%> <br /><br />
	        <% end if %>		
	        <h3><%=traduci("ling_mod_profilo_10")%>:</h3>
	        <% if not isnull(objUtente("Hobby")) and objUtente("Hobby") <> "" then %>
	        <%= objUtente("Hobby") %><br /><br />
	        <% else %>
	        <%=traduci("ling_mod_profilo_05")%> <br /><br />
	        <% end if %>		
	        <h3><%=traduci("ling_mod_profilo_11")%>:</h3>
	        <% if not isnull(objUtente("Sig")) and objUtente("Sig") <> "" then %>
	        <%= objUtente("Sig") %><br /><br />
	        <% else %>
	        <%=traduci("ling_mod_profilo_05")%> <br /><br />
	        <% end if %>
		</div>
		
	    <div id="preferiti">    
			<h3><%=traduci("ling_reg_86")%></h3>
			<% if objUtente("link1") <> "" AND objUtente("link1") <> "http://" and not isnull(objUtente("link1")) then %>
				<img src="themes/MODULI_IMG/MODULO_PROFILO/link.png" alt="link" />
				<a href="<%=objUtente("link1")%>" ><%=objUtente("link1")%></a><br />
	        <%end if%>		
	        <% if objUtente("link2") <> "" AND objUtente("link2") <> "http://" and not isnull(objUtente("link2")) then %>
				<img src="themes/MODULI_IMG/MODULO_PROFILO/link.png" alt="link" />
				<a href="<%=objUtente("link2")%>" ><%=objUtente("link2")%></a><br />
	        <%end if%>
	        <% if objUtente("link3") <> "" AND objUtente("link3") <> "http://" and not isnull(objUtente("link3")) then %>
				<img src="themes/MODULI_IMG/MODULO_PROFILO/link.png" alt="link" />
				<a href="<%=objUtente("link3")%>" ><%=objUtente("link3")%></a><br />
	        <%end if%>
	        <% if objUtente("link4") <> "" AND objUtente("link4") <> "http://" and not isnull(objUtente("link4")) then %>
				<img src="themes/MODULI_IMG/MODULO_PROFILO/link.png" alt="link" />
				<a href="<%=objUtente("link4")%>" ><%=objUtente("link4")%></a><br />
	        <%end if%>		
	    </div>
		
	    <br /><br /> 
		<% if not Visitatore then %>
	      <a href="default.asp?modulo=profilo&amp;file=modifica" class="testo"><%=traduci("ling_mod_profilo_13")%></a>
		<% end if

		set objUtente = nothing
		%>
	</div>